home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 248
/
248.d81
/
b.elevator music
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
7KB
|
227 lines
15 print"[147]"chr$(142)"":poke53281,0:poke53280,0
17 :
18 :rem load files
19 :
20 poke52,55:poke56,55
30 sys57812"el font",8,0:poke780,0:poke781,0:poke782,56:sys65493:poke53272,30
40 print" [152] another knees[146] calhoon[146] [152]debacle"
50 sys57812"el spr",8,0:poke780,0:poke781,0:poke782,55:sys65493
60 sys57812"ss 1990.em",8,0:poke780,0:poke781,60:poke782,3:sys65493
70 sys57812"basic player.o",8,0:poke780,0:poke781,254:poke782,203:sys65493
80 sys57812"m.elevator",8,0:poke780,0:poke781,0:poke782,64:sys65493
90 sys57812"w.elevator",8,0:poke780,0:poke781,104:poke782,207:sys65493
100 poke53265,9:gosub1500:print"[147]":poke53281,0
110 open15,8,15,"r0:swat team=swat team":input#15,er:close15:ifer<>63then450
150 open3,8,3,"swat team,s,r"
160 input#3,sw:fori=1tosw
165 input#3,mv(i):mv$(i)=str$(mv(i))
170 input#3,sw$(i)
180 next:close3:goto450
187 :
188 :rem subroutines
189 :
190 printtab(18)"[158][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
200 [153][163]18)"(NULL) f1 clrsurrender sys(NULL)
210 printtab(18)"[221] f3 [156]take back move [158][221]
220 [153][163]18)"(NULL) f5 clrsee swat team sys(NULL)
230 printtab(18)"[221] f7 [156]go to loadstar [158][221]
240 [153][163]18)"(NULL) s clrtoggle muzak sys(NULL)
245 printtab(18)"[221] h [156]help screens [158][221]
250 [153][163]18)"-lenlenlenlenlenlenlenlenlen=lenlenlenlenlenlenlenlenlen<
260 printtab(18)"[221][156] floors [158][221] [156]moves [158][221]
270 [153][163]18)"(NULL) cont0sys (NULL) cont0sys (NULL)
280 printtab(18)"[202][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][203]
290 [142]
300 [153]"loadclr(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$"
310 [129]i[178]0[164]22:[153]"(NULL)"[163]38)"(NULL)":[130]
320 [153]"mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)"
330 [142]
332 [141]300
334 [153]"for s w a t t e a m s t e r s"
335 [129]i[178]1[164]sw[169]2
336 [153][163]1)"open"mv$(i)[163]5)"cont"sw$(i);
337 [153][163]19)"open"mv$(i[170]1)[163]23)"cont"sw$(i[170]1)
338 [130]
339 [151]214,22:[153]:[153][163]2)"syspress any key to resume the assault"
340 [151]198,0
341 [161]a$:[139]a$[178]""[167]341
342 [142]
350 [151]198,0
355 [161]a$:[139]a$[178]""[167]355
360 [142]
370 [151]214,22:[153]:[153][163]20)" surrender? (y/n)on"
380 [161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167]380
385 [153][163]20)" on"
390 [139]k$[178]"n"[167][142]
400 f1[178]1:[142]
410 [151]214,22:[153]:[153][163]20)"to loadstar (y/n) on"
420 [161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167]420
425 [153][163]20)" on"
430 [139]k$[178]"n"[167][142]
440 f7[178]1:[142]
447 :
448 :[143] setup
449 :
450 [153][199](142):[151]53272,30
460 [134]d%(11,5)
470 v[178]53248:[151]2040,220:[151]2041,221:[151]v[170]39,1:[151]v[170]40,1
480 [151]2042,220:[151]2043,221:[151]v[170]41,12:[151]v[170]42,12
490 [151]v[170]29,0:[151]v[170]27,15
500 tp$[178]"(NULL)lenlenlen=lenlenlen=lenlenlen=lenlenlenright$"
510 m1$[178]"(NULL) (NULL) (NULL) (NULL) (NULL)"
520 m2$[178]"-lenlenlen(NULL)lenlenlen(NULL)lenlenlen(NULL)lenlenlen<"
530 bt$[178]"mid$lenlenlen>lenlenlen>lenlenlen>lenlenlen(NULL)"
540 [129]i[178]0[164]3:[135]b$(i):[130]
550 [131]"fn then","fn then","fn then","clrfn then"
560 n%(1)[178]5:n%(2)[178]2:n%(3)[178]6:n%(4)[178]4
570 [151]53265,9:[153]"loadprint#"tp$:sc[178]0:g[178]0:sn[178]1
580 [129]i[178]0[164]9:[153]m1$:[153]m2$:[130]
590 [153]m1$:[153]bt$
600 [153]""
640 [129]i[178]0[164]3:[129]j[178]0[164]3
650 [151]214,15[170]2[172]j:[153]
660 [153][163]1[170]i[172]4)b$((j[170]i)[175]3)
670 [130]:[130]
680 [153]"def"
690 [153][163]17)"(NULL)lenright$right$ (NULL)lenright$right$(NULL)(NULL)lenright$(NULL)=right$(NULL)lenright$(NULL)lenright$"
700 [153][163]17)"-< (NULL) -< (NULL)(NULL)-len< (NULL) (NULL) (NULL)-=(NULL)"
710 [153][163]17)"mid$len(NULL)mid$(NULL)mid$len(NULL)mid$(NULL)> > > mid$len(NULL)>mid$<"
720 [153][163]21)"(NULL)right$(NULL)right$right$ (NULL)(NULL)lenright$=(NULL)lenright$
730 printtab(21)"[221][221][221][221][221] [221][202][195][201][221][221]
740 [153][163]21)"(NULL)mid$(NULL)(NULL)(NULL) (NULL) (NULL)(NULL)(NULL)
750 printtab(21)"[203] [202][202][195][203][202][195][203][177][202][195][203]
760 [153][163]19)"help openfenderwait tucker"
765 [153][163]18)"defregain the penthouse"
770 [141]190
780 [129]i[178]0[164]10:[129]j[178]0[164]3:d%(i,j)[178]0:[130]:[130]:[143] clear grid
790 [129]i[178]0[164]3:[129]j[178]0[164]3:d%(i,3[171]j)[178]((2[171](j[170]i))[175]3)[170]1:[130]:[130]: [143] set up
800 [151]53265,27:[158]52222,16384
807 :
808 :[143] loop
809 :
810 x[178]0:y[178]0:f1[178]0:f3[178]1:f7[178]0:mv(sw[170]1)[178]0
820 [151]v,27[170]x[172]32:[151]v[170]1,224[171]y[172]16:[151]v[170]2,36[170]x[172]32:[151]v[170]3,224[171]y[172]16
840 e[178]0:[129]j[178]0[164]3:[139]d%(y,j)[167]e[178]e[170]1
850 [130]
860 [139]y[170]e[177]10[167]960
870 [139]d%(y[170]e,x)[167][151]v[170]21,3:[137]970
880 [129]i[178]0[164]3:[139]d%(y[170]e,i)[178]d%(y,x)[167]i[178]3:[130]:[137]960
890 [130]
900 [139]e[179][177]1[167]940
910 f[178]0:[129]i[178]10[164]y[170]1[169][171]1:[129]j[178]0[164]3:[139]d%(i,j)[178]d%(y,x)[167]f[178]1
920 [130]:[130]
930 [139]f[178]0[167]960
940 [151]v[170]4,[194](v):[151]v[170]5,[194](v[170]1)[171]e[172]16:[151]v[170]6,[194](v)[170]9:[151]v[170]7,[194](v[170]3)[171]e[172]16
950 [151]v[170]21,15:[151]v[170]41,n%(d%(y,x)):[151]v[170]42,n%(d%(y,x)):[137]970
960 [151]v[170]21,3
970 [151]198,0:[153]""
980 [161]a$:[139]sn[167][139][194](2)[178]255[167][158]52222,16384
990 [139]a$[178]""[167]980
1000 [139]a$[178]"s"[167]sn[178]1[171]sn:[139]sn[167][158]52222,16384
1010 [139]sn[178]0[167][158]52225
1015 [139]a$[178]"f"[167]ft[178]1[171]ft:[151]53272,30[171]9[172]ft:[137]980
1020 [139]a$[178]"let"[167][141]410:[139]f7[167]1450:[143] to loadstar
1030 [139]a$[178]"input"[167][141]370:[139]f1[167]1260:[143] surrender
1040 [139]a$[178]"read"[167][151]v[170]21,0:[158]828,1:[141]332:[158]831,1:[137]820:[143] f5 swat team
1050 [139]a$[179][177]"h"[167]1070:[143] help
1060 [151]v[170]21,0:[158]828,1:[158]831,2:[141]350:[158]831,3:[141]350:[158]831,1:[137]820
1070 [139]a$[178][199](13)[175][194](v[170]21)[178]15[167]1160
1080 [139]a$[179][177]"dim"[167]1110:[143] take back move
1090 [139]f3[167]1110
1095 mv(sw[170]1)[178]mv(sw[170]1)[171]1
1100 [158]831,1:d%(yy,xx)[178]d%(yy[170]ee,xx):d%(yy[170]ee,xx)[178]0:x[178]xx:y[178]yy:f3[178]1:sc[178]ss:[137]820
1110 [139]a$[178]""[167]y[178]y[171]1:[139]y[179]0[167]y[178]10
1120 [139]a$[178]"on"[167]y[178]y[170]1:[139]y[177]10[167]y[178]0
1130 [139]a$[178]""[167]x[178]x[170]1:[139]x[177]3[167]x[178]0
1140 [139]a$[178]"cmd"[167]x[178]x[171]1:[139]x[179]0[167]x[178]3
1150 [137]820
1157 :
1158 :[143] make move
1159 :
1160 [158]828,1:[151]214,21[171]2[172]y:[153]:[153][163]1[170]x[172]4)" "
1165 mv(sw[170]1)[178]mv(sw[170]1)[170]1:mv$(sw[170]1)[178][196](mv(sw[170]1))
1170 [151]214,21[171]2[172]y[171]2[172]e:[153]:[153][163]1[170]x[172]4)b$(d%(y,x)[171]1):yy[178]y:xx[178]x:ee[178]e
1180 d%(y[170]e,x)[178]d%(y,x):d%(y,x)[178]0
1190 [151]v[170]21,0:ss[178]sc:f3[178]0
1200 sc[178]0:[129]i[178]0[164]3:[129]j[178]0[164]3
1210 [139][194](1106[170]i[172]4[170]j[172]80)[179][177]32[167]sc[178]sc[170]1
1220 [130]:[130]
1225 sg[178]sc[172].25:sg$[178][200]([196](sg),5)
1230 [151]214,20:[153]:[153][163]19)" sys(NULL) on"
1235 [153][163]23[171][195](sg$)[173]2)"cont"sg$;[163]32[170](mv(sw[170]1)[177]9))mv$(sw[170]1)
1240 [139]sc[178]16[175]sw[179]30[167][151]v[170]21,0:[137]1270
1250 [137]820
1260 [151]v[170]21,0:[158]52225:[139]sc[179]16[167]570
1270 [151]214,12:[153]
1280 [153][163]19)"sys congratulations! "
1285 [153][163]19)" you recaptured "
1290 [153][163]19)" the penthouse! "
1300 [153][163]19)" "
1320 [153][163]19)" enter your name "
1330 [153][163]20)" on"
1340 [153][163]22);:[141]1830
1350 sw[178]sw[170]1:sw$(sw)[178]q9$
1360 [